home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
001
/
versa11.arc
/
VERSA3.MNU
< prev
next >
Wrap
Text File
|
1987-05-23
|
14KB
|
506 lines
SELECT:
SWIT S1
CASE"214"
GOTO DALLAS
ENDC
CASE"713"
GOTO HOUSTON
ENDC
CASE"414"
GOTO MILWAUKE
ENDC
CASE"612"
GOTO MINNEAPO
ENDC
CASE"303"
GOTO DENVER
ENDC
CASE"602"
GOTO PHOENIX
ENDC
DEFA
ASSI S9"ERROR"
EXEC"VERSA.CMD"
ENDC
ENDS
DALLAS:
CLEA
LOCA 2,0
MESS" ╒═════════╡ Dallas BBS Directory (214) ╞═════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Killen Board C Languages │"
MESS" │ < 2> UNIX Connection UNIX │"
MESS" │ < 3> K-Squared │"
MESS" │ < 4> Double D │"
MESS" │ < 5> Mars Hill Philosophy Conference │"
MESS" │ < 6> Seabrook Computers │"
MESS" │ < 7> Sachse │"
MESS" │ < 8> F I A W O L │"
MESS" │ < 9> Bluebonnet BBS │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"2452432"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"8210390"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"3930750"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"4928090"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"2727979"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"6698735"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"5300607"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"3528721"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"8215312"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
HOUSTON:
CLEA
LOCA 2,0
MESS" ╒════════╡ Houston BBS Directory (713) ╞════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Doghouse RBBS │"
MESS" │ < 2> Yellow Rose │"
MESS" │ < 3> The Last Resort BBS │"
MESS" │ < 4> Kingcom │"
MESS" │ < 5> Big Boy's BBS │"
MESS" │ < 6> Big Blue BBS │"
MESS" │ < 7> PC Board │"
MESS" │ < 8> D U C K │"
MESS" │ < 9> 44/40 │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"4223146"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"3262999"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"4810455"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"3601316"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"3243416"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"3924249"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"4481406"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"9724892"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"9573840"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
MILWAUKE:
CLEA
LOCA 2,0
MESS" ╒═══════╡ Milwaukee BBS Directory (414) ╞═══════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Exec PC ($) Files Galore │"
MESS" │ < 2> Walker BBS DOS │"
MESS" │ < 3> F.R.E.D. ][ PC Board │"
MESS" │ < 4> Ideal Logic │"
MESS" │ < 5> Window BBS (weekends only) │"
MESS" │ < 6> PC Express │"
MESS" │ < 7> Com Link │"
MESS" │ < 8> Generic Crossroads │"
MESS" │ < 9> CUSSnet Milwaukee │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"9645160"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"4357074"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"7841417"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"7841417"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"2732128"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"3275300"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"7942096"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"2824181"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"9634515"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
MINNEAPO:
CLEA
LOCA 2,0
MESS" ╒══════╡ Minneapolis BBS Directory (612) ╞══════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> The Forbin Project Home of Qmodem │"
MESS" │ < 2> │"
MESS" │ < 3> │"
MESS" │ < 4> │"
MESS" │ < 5> │"
MESS" │ < 6> │"
MESS" │ < 7> │"
MESS" │ < 8> │"
MESS" │ < 9> │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"8248167"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
DENVER:
CLEA
LOCA 2,0
MESS" ╒═════════╡ Denver BBS Directory (303) ╞═════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> The Data Bank │"
MESS" │ < 2> Micro Broker Fido │"
MESS" │ < 3> Grizzly King │"
MESS" │ < 4> Denver Fido │"
MESS" │ < 5> Sheidmen Computer Crime │"
MESS" │ < 6> Kitten Board │"
MESS" │ < 7> Lazy L BBS │"
MESS" │ < 8> Rocky Mountain BBS │"
MESS" │ < 9> Geophysical Monitoring │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"4940167"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"5345456"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"6737743"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"9739338"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"9877388"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"4519201"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"6659520"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"7502107"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"4976968"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"
PHOENIX:
CLEA
LOCA 2,0
MESS" ╒════════╡ Phoenix BBS Directory (602) ╞════════╕"
MESS" │ │"
MESS" │ -Board- -SIG- │"
MESS" │ │"
MESS" │ < 1> Phoenix Techline Warren Lauzon │"
MESS" │ < 2> Phoenix Club Phoenix Club Board │"
MESS" │ < 3> Invest BBS │"
MESS" │ < 4> Technoids BBS │"
MESS" │ < 5> Measurement BBS │"
MESS" │ < 6> Xtra #1 │"
MESS" │ < 7> Pyroto Mtn. │"
MESS" │ < 8> Rainbow BBS │"
MESS" │ < 9> Astronomer BBS │"
MESS" │ <10> │"
MESS" │ │"
MESS" │ <G>o back to city selection │"
MESS" │ │"
MESS" ├────────────────────────────────────────────────┤"
MESS" │ Enter 1-10 or other BBS phone number: │"
MESS" ╘════════════════════════════════════════════════╛"
LOCA 20,56
GET S9 7
SWIT S9
CASE"1"
ASSI S2"9363058"
;ASSI S7"COMMAND.VER"
ENDC
CASE"2"
ASSI S2"4372840"
;ASSI S7"COMMAND.VER"
ENDC
CASE"3"
ASSI S2"9311345"
;ASSI S7"COMMAND.VER"
ENDC
CASE"4"
ASSI S2"8994876"
;ASSI S7"COMMAND.VER"
ENDC
CASE"5"
ASSI S2"8976459"
;ASSI S7"COMMAND.VER"
ENDC
CASE"6"
ASSI S2"9796352"
;ASSI S7"COMMAND.VER"
ENDC
CASE"7"
ASSI S2"8646819"
;ASSI S7"COMMAND.VER"
ENDC
CASE"8"
ASSI S2"9528520"
;ASSI S7"COMMAND.VER"
ENDC
CASE"9"
ASSI S2"9916646"
;ASSI S7"COMMAND.VER"
ENDC
CASE"10"
ASSI S2"XXXXXXX"
;ASSI S7"COMMAND.VER"
ENDC
CASE"D"
EXEC"VERSA.CMD"
ENDC
CASE"E"
EXEC"VERSA.CMD"
ENDC
CASE"G"
EXEC"VERSA.CMD"
ENDC
DEFA
ASSI S2 S9ENDC
ENDS
ASSI S9"ACTIVE"
EXEC"VERSA.CMD"